home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
EGYPTW.DIR
/
01720_Script_Pharaohs
< prev
next >
Wrap
Text File
|
1995-09-13
|
8KB
|
283 lines
global gQuest, gBeenClicked
on EParoahsRollovers1
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(9) then
repeat while rollover(9)
EgyptCursor
set the locH of sprite 10 to 236
set the locV of sprite 10 to 348
updatestage
if the mousedown then
puppetsound "SE320200.AIF"
end if
end repeat
set the locH of sprite 10 to 999
updatestage
else
if rollover(8) then
repeat while rollover(8)
EgyptCursor
set the locH of sprite 28 to 475
set the locV of sprite 28 to 226
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
AnimateLoopFast 8, 1242, 2, "SE321101.AIF (Marching)", 6
end repeat
end if
end if
end repeat
set the locH of sprite 28 to 999
updatestage
else
if rollover(11) or rollover(6) then
repeat while rollover(11) or rollover(6)
EgyptCursor
set the locH of sprite 12 to 304
set the locV of sprite 12 to 194
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
AnimatePharaoh
end repeat
end if
end if
end repeat
set the locH of sprite 12 to 999
updatestage
else
if rollover(13) then
ArrowCursor
repeat while rollover(13)
set the locH of sprite 14 to 502
set the locV of sprite 14 to 308
updatestage
end repeat
set the locH of sprite 14 to 999
updatestage
else
if rollover(15) then
ArrowCursor
repeat while rollover(15)
set the locH of sprite 16 to 487
set the locV of sprite 16 to 337
updatestage
end repeat
set the locH of sprite 16 to 999
updatestage
else
if rollover(17) then
ArrowCursor
repeat while rollover(17)
set the locH of sprite 18 to 471
set the locV of sprite 18 to 328
updatestage
end repeat
set the locH of sprite 18 to 999
updatestage
else
if rollover(40) then
HandCursor
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on EParoahsRollovers2
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(6) then
repeat while rollover(6)
EgyptCursor
set the locH of sprite 11 to 418
set the locV of sprite 11 to 203
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
AnimateLoopFast 6,1262,3,"SE320300.AIF",2
end repeat
end if
end if
end repeat
set the locH of sprite 11 to 999
updatestage
else
if rollover(9) then
ArrowCursor
repeat while rollover(9)
set the locH of sprite 10 to 329
set the locV of sprite 10 to 290
updatestage
end repeat
set the locH of sprite 10 to 999
updatestage
else
if rollover(7) then
repeat while rollover(7)
EgyptCursor
set the locH of sprite 12 to 418
set the locV of sprite 12 to 304
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
AnimateLoopFastest 7, 1265, 3, "SE321000.AIF (beating)", 1
end repeat
end if
end if
end repeat
set the locH of sprite 12 to 999
updatestage
else
if rollover(8) then
repeat while rollover(8)
EgyptCursor
set the locH of sprite 28 to 521
set the locV of sprite 28 to 271
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
AnimateLoopFast 8, 1268, 2, "SE321101.AIF (Marching)", 4
end repeat
end if
end if
end repeat
set the locH of sprite 28 to 999
updatestage
else
if rollover(39) then
HandCursor
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on AnimatePharaoh
ArrowCursor
set gAnimationcast1 = 1234
set gAnimationcast2 = 1237
set count = 0
repeat while count < 1 and (the mouseUp)
set the castnum of sprite 7 = gAnimationcast2 + 1
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 6 = gAnimationcast1 + 1
set the castnum of sprite 7 = gAnimationcast2 + 2
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast2 + 3
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast2 + 4
updatestage
wait .3
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 6 = gAnimationcast1 + 2
set the castnum of sprite 7 = gAnimationcast2 + 3
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast2 + 2
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast2 + 3
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast2 + 4
updatestage
wait .3
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast2 + 3
updatestage
wait .1
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 6 = gAnimationcast1 + 1
set the castnum of sprite 7 = gAnimationcast2 + 2
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast2 + 1
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set count = count + 1
end repeat
set the castnum of sprite 6 = gAnimationcast1
set the castnum of sprite 7 = gAnimationcast2
updatestage
set gBeenClicked = 0
end